home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / asmsrc / tango2.lha / WINDOW.S < prev   
Encoding:
Text File  |  1988-07-19  |  848 b   |  55 lines
  1. ; ** OPEN A SHITTY WINDOW **
  2.  
  3. OPENLIB     =-408
  4. CLOSELIB    =-414
  5. EXECBASE    =4
  6. OPEN        =-30
  7. CLOSE        =-36
  8. READ        =-42
  9. WRITE        =-48
  10. EXIT        =-144
  11. MODE_OLD    =1005
  12.  
  13. START:
  14.     MOVE.L    EXECBASE,A6
  15.     LEA        DOSNAME,A1
  16.     MOVEQ    #0,D0
  17.     JSR        OPENLIB(A6)            ; OPEN DOS LIBRARY
  18.     MOVE.L    D0,DOSBASE
  19.     BEQ        ERROR
  20.     MOVE.L    DOSBASE,A6
  21.     MOVE.L    #NAME,D1
  22.     MOVE.L    #MODE_OLD,D2
  23.     JSR        OPEN(A6)
  24.     MOVE.L    D0,CONHANDLE
  25.     BEQ        ERROR
  26.     MOVE.L    CONHANDLE,D1
  27.     MOVE.L    #TTEXT,D2
  28.     MOVE.L    #TENDE-TTEXT,D3
  29.     JSR        WRITE(A6)
  30.     MOVE.L    CONHANDLE,D1
  31.     MOVE.L    #BUFFER,D2
  32.     MOVE.L    #80,D3
  33.     JSR        READ(A6)
  34.     MOVE.L    CONHANDLE,D1
  35.     JSR        CLOSE(A6)
  36.     BRA        ENDE
  37. ERROR:
  38.     MOVE.L    #-1,D0
  39. ENDE:
  40.     MOVE.L    D0,D1
  41.     MOVE.L    DOSBASE,A6
  42.     JSR        EXIT(A6)
  43.     RTS
  44.     
  45. DOSNAME:    dc.b    "dos.library",0
  46. NAME:        dc.b    "RAW:0/0/640/256/** KNOB HEADS **",0
  47. TTEXT:        dc.b    "C R Y P T I C   9 0",0
  48. TENDE:
  49. BUFFER:        DCB.B    80,0
  50.     EVEN
  51. DOSBASE:    DC.L    0
  52. CONHANDLE:    DC.L    0
  53.             
  54.         
  55.